﻿Public Class PrimDagilimDuzeltme : Inherits Process

	Dim TahsilTar As Date

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Prim dağılım düzeltme", "")
				AddList()
				List.AddColumns("makbuzno(Makbuz No.;80c)")
			Case EventType.Shown
				Q("select a.makbuzno from pgenel a inner join pgeneloran b on a.makbuzno = b.makbuzno where a.islemtar >= '20120101' and abs(a.primtahakkuk-(b.isvhisse+b.shisse))>1")
				Rs = Local.OpenSQL("*")
				List.DataSource = Rs
				Buttons.Show("Save.Reset")
				Help = "Düzeltme işlemi için Kaydet butonuna tıklayınız"
			Case EventType.Save
				If Not Confirm("Kayıtları düzeltme işlemini onaylıyor musunuz?") Then Exit Sub
				For Each Row As DataGridViewRow In List.Rows
					Prim.Bordro.PGenelOranDuzelt(Local, Row.Cells("makbuzno").Value)
				Next
				Info("Düzeltme işlemi başarıyla tamamlandı.")
				Close()
		End Select
	End Sub

End Class
